﻿Public Class FrmReport
    Dim rpt As Object
    Private Sub frmReportViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        CrystalReportViewer1.ReportSource = rpt
    End Sub

    Public Sub New(ByVal mReport As Object)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        rpt = mReport
    End Sub
End Class